Declare Function PEStartPrintJob Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal WaitOrNot%) As Integer
Declare Sub PECancelPrintJob Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%)
' report options
'----------------
Global Const PE_RPTOPT_CVTDATETIMETOSTR = 0
Global Const PE_RPTOPT_CVTDATETIMETODATE = 1
Global Const PE_RPTOPT_KEEPDATETIMETYPE = 2
' Following are the valid values for promptMode
Global Const PE_RPTOPT_PROMPT_NONE = 0
Global Const PE_RPTOPT_PROMPT_NORMAL = 1
Global Const PE_RPTOPT_PROMPT_ALWAYS = 2
Type PEReportOptions
StructSize As Integer 'initialize to PE_SIZEOF_REPORT_OPTIONS
saveDataWithReport As Integer 'BOOL value, except use PE_UNCHANGED for no change
saveSummariesWithReport As Integer 'BOOL value, except use PE_UNCHANGED for no change
useIndexForSpeed As Integer 'BOOL value, except use PE_UNCHANGED for no change
translateDOSStrings As Integer 'BOOL value, except use PE_UNCHANGED for no change
translateDosMemos As Integer 'BOOL value, except use PE_UNCHANGED for no change
convertDateTimeType As Integer 'a PE_RPTOPT_ value, except use PE_UNCHANGED for no change
convertNullFieldToDefault As Integer 'BOOL value, except use PE_UNCHANGED for no change
morePrintEngineErrorMessages As Integer 'BOOL value, except use PE_UNCHANGED for no change
caseInsensitiveSQLData As Integer 'BOOL value, except use PE_UNCHANGED for no change
verifyOnEveryPrint As Integer 'BOOL value, except use PE_UNCHAGED for no change
zoomMode As Integer 'a PE_ZOOM_ constant, except use PE_UNCHANGED for no change
hasGroupTree As Integer 'BOOL value, except use PE_UNCHANGED for no change
dontGenerateDataForHiddenObjects As Integer ' BOOL value, except use PE_UNCHANGED for no change
performGroupingOnServer As Integer ' BOOL value, except use PE_UNCHANGED for no change
doAsyncQuery As Integer ' BOOL value, except use PE_UNCHANGED for no change
promptMode As Integer ' PE_RPTOPT_PROMPT_NONE, PE_RPTOPT_PROMPT_NORMAL, PE_RPTOPT_PROMPT_ALWAYS, use PE_UNCHANGED for no change
SelectDistinctRecords As Integer ' BOOL value, except use PE_UNCHANGED for no change
alwaysSortLocally As Integer ' BOOL value, use PE_UNCHANGED for no change
isReadOnly As Integer ' BOOL value, a read-only attribute.
canSelectDistinctRecords As Integer ' BOOL value, a read-only attribute.
End Type
Global Const PE_SIZEOF_REPORT_OPTIONS = 21 * PE_WORD_LEN
Declare Function PEGetReportOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, reportOptions As PEReportOptions) As Integer
Declare Function PESetReportOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, reportOptions As PEReportOptions) As Integer
' Print job status
' ----------------
Declare Function PEIsPrintJobFinished Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' To work around the problem of 4 - Byte alignment the PEGetJobStatus
' call has been re-declared locally. When your application calls PEGetJobStatus
' it is calling a function in this file which in turn calls CRPE32.DLL.
Global Const PE_JOBNOTSTARTED = 1
Global Const PE_JOBINPROGRESS = 2
Global Const PE_JOBCOMPLETED = 3
Global Const PE_JOBFAILED = 4
Global Const PE_JOBCANCELLED = 5
Global Const PE_JOBHALTED = 6 ' too many records or too much time
Type PEJobInfo
StructSize As Integer ' initialize to PE_SIZEOF_JOB_INFO
NumRecordsRead As Long
NumRecordsSelected As Long
NumRecordsPrinted As Long
DisplayPageN As Integer
LatestPageN As Integer
StartPageN As Integer
PrintEnded As Long
End Type
Type SplitPEJobInfo
StructSize As Integer ' initialize to PE_SIZEOF_JOB_INFO
NumRecordsRead1 As Integer
NumRecordsRead2 As Integer
NumRecordsSelected1 As Integer
NumRecordsSelected2 As Integer
NumRecordsPrinted1 As Integer
NumRecordsPrinted2 As Integer
DisplayPageN As Integer
LatestPageN As Integer
StartPageN As Integer
PrintEnded As Long
End Type
Global Const PE_SIZEOF_JOB_INFO = 10 * PE_WORD_LEN + 4
Declare Function RealPEGetJobStatus Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" Alias "PEGetJobStatus" (ByVal printJob%, JobInfo As SplitPEJobInfo) As Integer
' Controlling dialogs
' -------------------
Declare Function PESetDialogParentWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parentWindow As Long) As Integer
Declare Function PEEnableProgressDialog Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal enable%) As Integer
' Controlling Paremeter Field Prompting Dialog
' --------------------------------------------
' Set boolean to indicate whether CRPE is allowed to prompt for parameter values
' during printing.
Declare Function PEGetAllowPromptDialog Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PESetAllowPromptDialog Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal showPromptDialog%) As Integer
' Print job error codes and messages
' ----------------------------------
Declare Function PEGetErrorCode Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetErrorText Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, TextHandle As Long, TextLength%) As Integer
Declare Function PEGetHandleString Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal TextHandle As Long, ByVal Buffer$, ByVal BufferLength%) As Integer
' Setting the print date
' ----------------------
Declare Function PEGetPrintDate Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, Date_Year%, Date_Month%, Date_Day%) As Integer
Declare Function PESetPrintDate Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal Date_Year%, ByVal Date_Month%, ByVal Date_Day%) As Integer
' Encoding and Decoding Section Codes
' -----------------------------------
Global Const PE_ALLSECTIONS = 0
'Section types for use with PE_SECTION_CODE, PE_SECTION_TYPE, PE_GROUP_N and PE_SECTION_N functions
Global Const PE_SECT_PAGE_HEADER = 2
Global Const PE_SECT_PAGE_FOOTER = 7
Global Const PE_SECT_REPORT_HEADER = 1
Global Const PE_SECT_REPORT_FOOTER = 8
Global Const PE_SECT_GROUP_HEADER = 3
Global Const PE_SECT_GROUP_FOOTER = 5
Global Const PE_SECT_DETAIL = 4
'The old section constants with comment showing them in terms of the new:
'(Note that PE_GRANDTOTALSECTION and PE_SUMMARYSECTION both map
' to PE_SECT_REPORT_FOOTER.)
Global Const PE_HEADERSECTION = 2000 'PE_SECTION_CODE (PE_SECT_PAGE_HEADER, 0, 0)
Global Const PE_FOOTERSECTION = 7000 'PE_SECTION_CODE (PE_SECT_PAGE_FOOTER, 0, 0)
Global Const PE_TITLESECTION = 1000 'PE_SECTION_CODE (PE_SECT_REPORT_HEADER, 0, 0)
Global Const PE_SUMMARYSECTION = 8000 'PE_SECTION_CODE (PE_SECT_REPORT_FOOTER, 0, 0)
Global Const PE_GROUPHEADER = 3000 'PE_SECTION_CODE (PE_SECT_GROUP_HEADER, 0, 0)
Global Const PE_GROUPFOOTER = 5000 'PE_SECTION_CODE (PE_SECT_GROUP_FOOTER, 0, 0)
Global Const PE_DETAILSECTION = 4000 'PE_SECTION_CODE (PE_SECT_DETAIL, 0, 0)
Global Const PE_GRANDTOTALSECTION = PE_SUMMARYSECTION
' Controlling group conditions (i.e. group breaks)
Declare Function PEGetNParameterFields Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetNthParameterField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal varN%, varInfo As PEParameterFieldInfo) As Integer
Declare Function PESetNthParameterField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal varN%, varInfo As PEParameterFieldInfo) As Integer
'*** Converting parameterInfo default value or current value into value info ****
Global Const PE_VI_STRING_LEN = 256
' define value type
Global Const PE_VI_NUMBER = 0
Global Const PE_VI_CURRENCY = 1
Global Const PE_VI_BOOLEAN = 2
Global Const PE_VI_DATE = 3
Global Const PE_VI_STRING = 4
Global Const PE_VI_DATETIME = 5
Global Const PE_VI_TIME = 6
Global Const PE_VI_INTEGER = 7
Global Const PE_VI_COLOR = 8
Global Const PE_VI_CHAR = 9
Global Const PE_VI_LONG = 10
Global Const PE_VI_STRINGHANDLE = 11 'use viLong as handle and then call PEGetHandleString
Global Const PE_VI_HANDLE = 12 'use viLong as generic handle.
Global Const PE_VI_NOVALUE = 100
Type PEValueInfo
StructSize As Integer
valueType As Integer 'a PE_VI_ constant
viNumber As Double
viCurrency As Double
viBoolean As Long
viString As String * PE_VI_STRING_LEN
viDate(0 To 2) As Integer ' year, month, day
viDateTime(0 To 5) As Integer ' year, month, day, hour, minute, second
viTime(0 To 2) As Integer ' hour, minute, second
viColor As Long
viInteger As Integer
viC As Byte
ignored As Byte 'for 4 byte alignment. ignored.
viLong As Long
End Type
Global Const PE_SIZEOF_VALUE_INFO = 2 * PE_BYTE_LEN + _
15 * PE_WORD_LEN + _
3 * PE_LONG_LEN + _
2 * PE_DOUBLE_LEN + _
1 * PE_VI_STRING_LEN
Declare Function PEConvertPFInfoToVInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal Value As Any, ByVal valueType%, valueInfo As PEValueInfo) As Integer
Declare Function PEConvertVInfoToPFInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (valueInfo As PEValueInfo, valueType%, ByVal Value As Any) As Integer
' Default values for Parameter fields.
' - If return value is -1 then an error has occurred.
' ------------------------------------
Declare Function PEGetNParameterDefaultValues Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$) As Integer
Declare Function PEGetNthParameterDefaultValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, ByVal Index%, valueInfo As PEValueInfo) As Integer
Declare Function PESetNthParameterDefaultValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, ByVal Index%, valueInfo As PEValueInfo) As Integer
Declare Function PEAddParameterDefaultValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, valueInfo As PEValueInfo) As Integer
Declare Function PEDeleteNthParameterDefaultValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, ByVal Index%) As Integer
' Min/Max values for Parameter fields.
' ------------------------------------
Declare Function PEGetParameterMinMaxValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, valueMin As PEValueInfo, valueMax As PEValueInfo) As Integer
Declare Function PESetParameterMinMaxValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, valueMin As PEValueInfo, valueMax As PEValueInfo) As Integer
' Pick list options in Parameter fields.
Declare Function PEGetNthParameterValueDescription Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal parameterFieldName As String, ByVal reportName As String, ByVal Index As Integer, valueDesc As Long, valueDescLength As Integer) As Integer
Declare Function PESetNthParameterValueDescription Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal parameterFieldName As String, ByVal reportName As String, ByVal Index As Integer, ByVal valueDesc As String) As Integer
' constants for sortMethod in PEParameterPickListOption struct
Global Const PE_OR_NO_SORT = 0
Global Const PE_OR_ALPHANUMERIC_ASCENDING = 1
Global Const PE_OR_ALPHANUMERIC_DESCENDING = 2
Global Const PE_OR_NUMERIC_ASCENDING = 3
Global Const PE_OR_NUMERIC_DESCENDING = 4
Type PEParameterPickListOption
StructSize As Integer ' initialize to PE_SIZEOF_PICK_LIST_OPTION
showDescOnly As Integer ' boolean value or PE_UNCHANGED
sortMethod As Integer ' enum type const, PE_UNCHANGED for no change
sortBasedOnDesc As Integer ' boolean value or PE_UNCHANGED
End Type
Global Const PE_SIZEOF_PICK_LIST_OPTION = (4 * PE_WORD_LEN)
Declare Function PEGetParameterPickListOption Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal parameterFieldName As String, ByVal reportName As String, pickListOption As PEParameterPickListOption) As Integer
Declare Function PESetParameterPickListOption Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal parameterFieldName As String, ByVal reportName As String, pickListOption As PEParameterPickListOption) As Integer
' Parameter current values
' ------------------------
'parameter field origin
Global Const PE_PO_REPORT = 0
Global Const PE_PO_STOREDPROC = 1
Global Const PE_PO_QUERY = 2
' range info
Global Const PE_RI_INCLUDEUPPERBOUND = 1
Global Const PE_RI_INCLUDELOWERBOUND = 2
Global Const PE_RI_NOUPPERBOUND = 4
Global Const PE_RI_NOLOWERBOUND = 8
Global Const PE_DR_HASRANGE = 0
Global Const PE_DR_HASDISCRETE = 1
Global Const PE_DR_HASDISCRETEANDRANGE = 2
Type PEParameterValueInfo
StructSize As Integer
isNullable As Integer ' Boolean value or PE_UNCHANGED for no change.
disallowEditing As Integer ' Boolean value or PE_UNCHANGED for no change.
allowMultipleValues As Integer ' Boolean value or PE_UNCHANGED for no change.
hasDiscreteValues As Integer ' PE_UNCHANGED for no change.
' 0 means has ranges, 1 means has discrete values
' 2 means has discrete and ranged values
partOfGroup As Integer ' Boolean value or PE_UNCHANGED for no change.
groupNum As Integer ' a group number or PE_UNCHANGED for no change.
mutuallyExclusiveGroup As Integer ' Boolean value or PE_UNCHANGED for no change.
End Type
Global Const PE_SIZEOF_PARAMETER_VALUE_INFO = 8 * PE_WORD_LEN
Declare Function PEGetParameterValueInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, valueInfo As PEParameterValueInfo) As Integer
Declare Function PESetParameterValueInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, valueInfo As PEParameterValueInfo) As Integer
' If return value is -1 then an error has occurred.
Declare Function PEGetNParameterCurrentValues Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$) As Integer
Declare Function PEGetNthParameterCurrentValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, ByVal Index%, currentValue As PEValueInfo) As Integer
Declare Function PEAddParameterCurrentValue Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, currentValue As PEValueInfo) As Integer
' If return value is -1 then an error has occurred.
Declare Function PEGetNParameterCurrentRanges Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$) As Integer
Declare Function PEGetNthParameterCurrentRange Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, ByVal Index%, rangeStart As PEValueInfo, rangeEnd As PEValueInfo, ByVal rangeInfo%) As Integer
Declare Function PEAddParameterCurrentRange Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$, rangeStart As PEValueInfo, rangeEnd As PEValueInfo, ByVal rangeInfo%) As Integer
Declare Function PEGetNthParameterType Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal Index%) As Integer 'returns PE_PO_* or -1 if index is invalid.
Declare Function PEClearParameterCurrentValuesAndRanges Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal parameterFieldName$, ByVal reportName$) As Integer
' Subreport Functions
' -------------------------------------------
Global Const PE_SUBREPORT_NAME_LEN = 128
' PE_SRI_ONOPENJOB: Reimport the subreport when opening the main report.
' PE_SRI_ONFUNCTIONCALL: Reimport the subreport when the api is called.
Global Const PE_SRI_UNDEFINED = -1
Global Const PE_SRI_ONOPENJOB = 0
Global Const PE_SRI_ONFUNCTIONCALL = 1
Type PESubreportInfo
StructSize As Integer ' Initialize to PE_SIZEOF_SUBREPORT_INFO.
'Strings are null-terminated.
name As String * PE_SUBREPORT_NAME_LEN
'number of links
NLinks As Integer
' subreport placement.
isOnDemand As Integer ' TRUE if the subreport is on demand subreport.
external As Integer ' 1: the subreport is imported; 0: otherwise.
reimportOption As Integer ' PE_SRI_ONOPENJOB or PE_SRI_ONFUNCTIONCALL
Declare Function PEGetSubreportInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal subreportHandle As Long, subreportInfo As PESubreportInfo) As Integer
Declare Function PEReimportSubreport Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal subreportHandle As Long, linkChanged As Long, reimported As Long) As Integer
' End Subreports
' Controlling sort order and group sort order
' -------------------------------------------
Global Const PE_SF_MAXNAMELEN = 50 ' maximum length of a sort field name
Global Const PE_SF_DESC = 0 ' values for the Direction parameter
Global Const PE_SF_ASC = 1
Declare Function PEGetNSortFields Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetNthSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortNumber%, nameHandle As Long, nameLength%, Direction%) As Integer
Declare Function PESetNthSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortNumber%, ByVal SortFieldName$, ByVal Direction%) As Integer
Declare Function PEDeleteNthSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortFieldN%) As Integer
Declare Function PEGetNGroupSortFields Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetNthGroupSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortFieldN%, nameHandle As Long, nameLength%, Direction%) As Integer
Declare Function PESetNthGroupSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortFieldN%, ByVal SortGroupName$, ByVal Direction%) As Integer
Declare Function PEDeleteNthGroupSortField Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal SortFieldN%) As Integer
' Controlling databases
' ---------------------
'
' The following functions allow retrieving and updating database info
' in an opened report, so that a report can be printed using different
' session, server, database, user and/or table location settings. Any
' changes made to the report via these functions are not permanent, and
' only last as long as the report is open.
'
' The following database functions (except for PELogOnServer and
' PELogOffServer) must be called after PEOpenPrintJob and before
' PEStartPrintJob.
' The function PEGetNTables is called to fetch the number of tables in
' the report. This includes all PC databases (e.g. Paradox, xBase)
' as well as SQL databases (e.g. SQL Server, Oracle, Netware).
Declare Function PEGetNTables Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' The function PEGetNthTableType allows the application to determine the
' type of each table. The application can test DBType (equal to
' PE_DT_STANDARD or PE_DT_SQL), or test the database DLL name used to
' create the report. DLL names have the following naming convention:
' - PDB*.DLL for standard (non-SQL) databases,
' - PDS*.DLL for SQL databases.
'
' In the case of ODBC (PDSODBC.DLL) the DescriptiveName includes the
' ODBC data source name.
Global Const PE_DLL_NAME_LEN = 64
Global Const PE_FULL_NAME_LEN = 256
Global Const PE_SIZEOF_TABLE_TYPE = 324 ' # bytes in PETableType
Global Const PE_DT_STANDARD = 1 ' values for DBType
Global Const PE_DT_SQL = 2
Global Const PE_DT_SQL_STORED_PROCEDURE = 3
Type PETableType
StructSize As Integer ' initialize to # bytes in PETableType
DLLName As String * PE_DLL_NAME_LEN
DescriptiveName As String * PE_FULL_NAME_LEN
DBType As Integer
End Type
Declare Function PEGetNthTableType Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, TableType As PETableType) As Integer
' The functions PEGetNthTableSessionInfo and PESetNthTableSessionInfo
' are only used when connecting to MS Access databases (which require a
' session to be opened first)
Global Const PE_SESS_USERID_LEN = 128
Global Const PE_SESS_PASSWORD_LEN = 128
Global Const PE_SIZEOF_SESSION_INFO = 262 ' # bytes in PESessionInfo
Type PESessionInfo
'initialize to # bytes in PESessionInfo
StructSize As Integer
' Password is undefined when getting information from report.
UserID As String * PE_SESS_USERID_LEN
Password As String * PE_SESS_PASSWORD_LEN
' SessionHandle is undefined when getting information from report.
' When setting information, if it is = 0 the UserID and Password
' settings are used, otherwise the SessionHandle is used.
SessionHandle As Long
End Type
Declare Function PEGetNthTableSessionInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, SessionInfo As PESessionInfo) As Integer
Declare Function PESetNthTableSessionInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, SessionInfo As PESessionInfo, ByVal PropagateAcrossTables%) As Integer
' Logging on is performed when printing the report, but the correct
' log on information must first be set using PESetNthTableLogOnInfo.
' Only the password is required, but the server, database, and
' user names may optionally be overriden as well.
'
' If the parameter propagateAcrossTables is TRUE, the new log on info
' is also applied to any other tables in this report that had the
' same original server and database names as this table. If FALSE
' only this table is updated.
'
' Logging off is performed automatically when the print job is closed.
Global Const PE_SERVERNAME_LEN = 128
Global Const PE_DATABASENAME_LEN = 128
Global Const PE_USERID_LEN = 128
Global Const PE_PASSWORD_LEN = 128
Global Const PE_SIZEOF_LOGON_INFO = 514 ' # bytes in PELogOnInfo
Type PELogOnInfo
' initialize to # bytes in PELogOnInfo
StructSize As Integer
' For any of the following values an empty string ("") means to use
' the value already set in the report. To override a value in the
' report use a non-empty string (e.g. "Server A").
'
' For Netware SQL, pass the dictionary path name in ServerName and
' data path name in DatabaseName.
ServerName As String * PE_SERVERNAME_LEN
DatabaseName As String * PE_DATABASENAME_LEN
UserID As String * PE_USERID_LEN
' Password is undefined when getting information from report.
Password As String * PE_PASSWORD_LEN
End Type
Declare Function PEGetNthTableLogOnInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, LogOnInfo As PELogOnInfo) As Integer
Declare Function PESetNthTableLogOnInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, LogOnInfo As PELogOnInfo, ByVal Propagate%) As Integer
' A table's location is fetched and set using PEGetNthTableLocation and
' PESetNthTableLocation. This name is database-dependent, and must be
' formatted correctly for the expected database. For example:
' - Paradox: "c:\crw\ORDERS.DB"
' - SQL Server: "publications.dbo.authors"
Global Const PE_TABLE_LOCATION_LEN = 256
Global Const PE_CONNECTION_BUFFER_LEN = 512
Type PETableLocation
' initialize to # bytes in PETableLocation
StructSize As Integer
Location As String * PE_TABLE_LOCATION_LEN
SubLocation As String * PE_TABLE_LOCATION_LEN
ConnectBuffer As String * PE_CONNECTION_BUFFER_LEN ' Connection Info for attached tables
End Type
Global Const PE_SIZEOF_TABLE_LOCATION = 1026 ' # bytes in PETableLocation
Declare Function PEGetNthTableLocation Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, Location As PETableLocation) As Integer
Declare Function PESetNthTableLocation Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%, Location As PETableLocation) As Integer
' The function PETestNthTableConnectivity tests whether a database
' table's settings are valid and ready to be reported on. It returns
' true if the database session, log on, and location info is all
' correct.
'
' This is useful, for example, in prompting the user and testing a
' server password before printing begins.
'
' This function may require a significant amount of time to complete,
' since it will first open a user session (if required), then log onto
' the database server (if required), and then open the appropriate
' database table (to test that it exists). It does not read any data,
' and closes the table immediately once successful. Logging off is
' performed when the print job is closed.
'
' If it fails in any of these steps, the error code set indicates
' which database info needs to be updated using functions above:
' - If it is unable to begin a session, PE_ERR_DATABASESESSION is set,
' and the application should update with PESetNthTableSessionInfo.
' - If it is unable to log onto a server, PE_ERR_DATABASELOGON is set,
' and the application should update with PESetNthTableLogOnInfo.
' - If it is unable open the table, PE_ERR_DATABASELOCATION is set,
' and the application should update with PESetNthTableLocation.
Declare Function PETestNthTableConnectivity Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal TableN%) As Integer
' PELogOnServer and PELogOffServer can be called at any time to log on
' and off of a database server. These functions are not required if
' function PESetNthTableLogOnInfo above was already used to set the
' password for a table.
'
' These functions require a database DLL name, which can be retrieved
' using PEGetNthTableType above.
'
' This function can also be used for non-SQL tables, such as password-
' protected Paradox tables. Call this function to set the password
' for the Paradox DLL before beginning printing.
'
' Note: When printing using PEStartPrintJob the ServerName passed in
' PELogOnServer must agree exactly with the server name stored in the
' report. If this is not true use PESetNthTableLogOnInfo to perform
' logging on instead.
Declare Function PELogOnServer Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal DLLName$, LogOnInfo As PELogOnInfo) As Integer
Declare Function PELogOffServer Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal DLLName$, LogOnInfo As PELogOnInfo) As Integer
Declare Function PELogOnSQLServerWithPrivateInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal DLLName$, ByVal PrivateInfo As Long) As Integer
' Overriding SQL query in report
' ------------------------------
'
' PEGetSQLQuery returns the same query as appears in the Show SQL Query
' dialog in CRW, in syntax specific to the database driver you are using.
'
' PESetSQLQuery is mostly useful for reports with SQL queries that
' were explicitly edited in the Show SQL Query dialog in CRW, i.e. those
' reports that needed database-specific selection criteria or joins.
' (Otherwise it is usually best to continue using function calls such as
' PESetSelectionFormula and let CRW build the SQL query automatically.)
'
' PESetSQLQuery has the same restrictions as editing in the Show SQL
' Query dialog; in particular that changes are accepted in the FROM and
' WHERE clauses but ignored in the SELECT list of fields.
Declare Function PEGetSQLQuery Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, TextHandle As Long, TextLength%) As Integer
Declare Function PESetSQLQuery Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal QueryString$) As Integer
'Field mapping types
Global Const PE_FM_AUTO_FLD_MAP = 0 'Automatic field name mapping
'unmapped report fields will be removed
Global Const PE_FM_CRPE_PROMPT_FLD_MAP = 1 'CRPE provided dialog box to map field manually
Declare Function PESetFieldMappingType Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal mappingtype As Integer) As Integer
Declare Function PEGetFieldMappingType Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, mappingtype As Integer) As Integer
Declare Function PEVerifyDatabase Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' constants returned from PECheckNthTableDifferences, can be any
' combination of the following:
Global Const PE_TCD_OKAY = &H0
Global Const PE_TCD_DATABASENOTFOUND = &H1
Global Const PE_TCD_SERVERNOTFOUND = &H2
Global Const PE_TCD_SERVERNOTOPENED = &H4
Global Const PE_TCD_ALIASCHANGED = &H8
Global Const PE_TCD_INDEXESCHANGED = &H10
Global Const PE_TCD_DRIVERCHANGED = &H20
Global Const PE_TCD_DICTIONARYCHANGED = &H40
Global Const PE_TCD_FILETYPECHANGED = &H80
Global Const PE_TCD_RECORDSIZECHANGED = &H100
Global Const PE_TCD_ACCESSCHANGED = &H200
Global Const PE_TCD_PARAMETERSCHANGED = &H400
Global Const PE_TCD_LOCATIONCHANGED = &H800
Global Const PE_TCD_DATABASEOTHER = &H1000
Global Const PE_TCD_NUMFIELDSCHANGED = &H10000
Global Const PE_TCD_FIELDOTHER = &H20000
Global Const PE_TCD_FIELDNAMECHANGED = &H40000
Global Const PE_TCD_FIELDDESCCHANGED = &H80000
Global Const PE_TCD_FIELDTYPECHANGED = &H100000
Global Const PE_TCD_FIELDSIZECHANGED = &H200000
Global Const PE_TCD_NATIVEFIELDTYPECHANGED = &H400000
Global Const PE_TCD_NATIVEFIELDOFFSETCHANGED = &H800000
Global Const PE_TCD_NATIVEFIELDSIZECHANGED = &H1000000
Global Const PE_TCD_FIELDDECPLACESCHANGED = &H2000000
Type PETableDifferenceInfo
StructSize As Integer
tableDifferences As Long ' any combination of PE_TC_*
' Not implemented for reports based on dictionary, returns PE_ERR_NOTIMPLEMENTED
Declare Function PECheckNthTableDifferences Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal TableN As Integer, tabledifferenceinfo As PETableDifferenceInfo) As Integer
' Saved data
' ----------
'
' Use PEHasSavedData to find out if a report currently has saved data
' associated with it. This may or may not be TRUE when a print job is
' first opened from a report file. Since data is saved during a print,
' this will always be TRUE immediately after a report is printed.
'
' Use PEDiscardSavedData to release the saved data associated with a
' report. The next time the report is printed, it will get current data
' from the database.
'
' The default behavior is for a report to use its saved data, rather than
' refresh its data from the database when printing a report.
Declare Function PEHasSavedData Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, HasSavedData As Long) As Integer
Declare Function PEDiscardSavedData Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' Report title
' ------------
Declare Function PEGetReportTitle Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, TitleHandle As Long, titleLength%) As Integer
Declare Function PESetReportTitle Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal Title$) As Integer
' Controlling print to window
' ---------------------------
Declare Function PEOutputToWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal Title$, ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal height As Long, ByVal style As Long, ByVal PWindow As Long) As Integer
Type PEWindowOptions
StructSize As Integer 'initialize to PE_SIZEOF_WINDOW_OPTIONS
hasGroupTree As Integer '0 or 1, except use PE_UNCHANGED for no change
canDrillDown As Integer '0 or 1, except use PE_UNCHANGED for no change
hasNavigationControls As Integer '0 or 1, except use PE_UNCHANGED for no change
hasCancelButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasPrintButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasExportButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasZoomControl As Integer '0 or 1, except use PE_UNCHANGED for no change
hasCloseButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasProgressControls As Integer '0 or 1, except use PE_UNCHANGED for no change
hasSearchButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasPrintSetupButton As Integer '0 or 1, except use PE_UNCHANGED for no change
hasRefreshButton As Integer '0 or 1, except use PE_UNCHANGED for no change
showToolbarTips As Integer ' BOOL value, except use PE_UNCHANGED for no change
' default is TRUE (*Show* tooltips on toolbar)
showDocumentTips As Integer ' BOOL value, except use PE_UNCHANGED for no change
' default is FALSE (*Hide* tooltips on document)
hasLaunchButton As Integer ' Launch Seagate Analysis button on toolbar.
' BOOL value, except use PE_UNCHANGED for no change
' default is FALSE
End Type
Global Const PE_SIZEOF_WINDOW_OPTIONS = (16 * PE_WORD_LEN)
Declare Function PEGetWindowOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, Options As PEWindowOptions) As Integer
Declare Function PESetWindowOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, Options As PEWindowOptions) As Integer
Declare Function PEGetWindowHandle Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Long
Declare Sub PECloseWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%)
' Controlling printed pages
' -------------------------
Declare Function PEShowNextPage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEShowFirstPage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEShowPreviousPage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEShowLastPage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetNPages Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEShowNthPage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal pageN%) As Integer
Global Const PE_ZOOM_FULL_SIZE = 0
Global Const PE_ZOOM_SIZE_FIT_ONE_SIDE = 1
Global Const PE_ZOOM_SIZE_FIT_BOTH_SIDES = 2
Declare Function PEZoomPreviewWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal ZoomLevel%) As Integer
' ZoomLevel is a percent from 25 to 400 or a PE_ZOOM_ constant
' Controlling print window when print control buttons hidden
Declare Function PEShowPrintControls Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal ShowPrintControls%) As Integer
Declare Function PEPrintControlsShowing Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ControlsShowing As Long) As Integer
Declare Function PEPrintWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal WaitNoWait%) As Integer
Declare Function PEExportPrintWindow Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal ToMail%, ByVal WaitUntilDone%) As Integer
Declare Function PENextPrintWindowMagnification Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' Changing printer selection
' --------------------------
Declare Function PESelectPrinter Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal PrinterDriver$, ByVal PrinterName$, ByVal PortName$, DevMode As Any) As Integer
Declare Function PEGetSelectedPrinter Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, DriverHandle As Long, DriverLength%, PrinterHandle As Long, PrinterLength%, PortHandle As Long, PortLength%, DevMode As Any) As Integer
Declare Function PEFreeDevMode Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, mode As Any) As Integer
' Controlling print to printer
' ----------------------------
Declare Function PEOutputToPrinter Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal nCopies%) As Integer
Declare Function PESetNDetailCopies Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal NDetailCopies%) As Integer
Declare Function PEGetNDetailCopies Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, NDetailCopies%) As Integer
' Extension to PESetPrintOptions function: If the 2nd parameter
' (pointer to PEPrintOptions) is set to 0 (null) the function prompts
' the user for these options.
'
' With this change, you can get the behaviour of the print-to-printer
' button in the print window by calling PESetPrintOptions with a
' null pointer and then calling PEPrintWindow.
Global Const PE_MAXPAGEN = 65535
Global Const PE_FILE_PATH_LEN = 512
Global Const PE_UNCOLLATED = 0
Global Const PE_COLLATED = 1
Global Const PE_DEFAULTCOLLATION = 2
Type PEPrintOptions
StructSize As Integer ' initialize to # bytes in PEPrintOptions
' page and copy numbers are 1-origin
' use 0 to preserve the existing settings
StartPageN As Integer
stopPageN As Integer
nReportCopies As Integer
collation As Integer
outputFileName As String * PE_FILE_PATH_LEN
End Type
Global Const PE_SIZEOF_PRINT_OPTIONS = 5 * PE_WORD_LEN + PE_FILE_PATH_LEN
Declare Function PESetPrintOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, Options As PEPrintOptions) As Integer
Declare Function PEGetPrintOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, Options As PEPrintOptions) As Integer
' Controlling print to file and export
' ------------------------------------
Global Const PE_FT_RECORD = 0
Global Const PE_FT_TABSEPARATED = 1
Global Const PE_FT_TEXT = 2
Global Const PE_FT_DIF = 3
Global Const PE_FT_CSV = 4
Global Const PE_FT_CHARSEPARATED = 5
Global Const PE_FT_TABFORMATTED = 6
Global Const PE_FIELDDELIMLEN = 17
Declare Function PEOutputToFile Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal OutputFilePath$, ByVal FileType%, Options As Any) As Integer
Type PEExportOptions
StructSize As Integer 'initialize to # bytes in PEExportOptions
Declare Function PEGetExportOptions Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ExportOptions As PEExportOptions) As Integer
Declare Function PEExportTo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ExportOptions As PEExportOptions) As Integer
' Setting page margins
' --------------------
Global Const PE_SM_DEFAULT = &H8000
Declare Function PESetMargins Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal LeftMargin%, ByVal RightMargin%, ByVal TopMargin%, ByVal BottomMargin%) As Integer
Declare Function PEGetMargins Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, LeftMargin%, RightMargin%, TopMargin%, BottomMargin%) As Integer
'Report Summary Info
'-------------------
Global Const PE_SI_APPLICATION_NAME_LEN = 128
Global Const PE_SI_TITLE_LEN = 128
Global Const PE_SI_SUBJECT_LEN = 128
Global Const PE_SI_AUTHOR_LEN = 128
Global Const PE_SI_KEYWORDS_LEN = 128
Global Const PE_SI_COMMENTS_LEN = 512
Global Const PE_SI_REPORT_TEMPLATE_LEN = 128
Type PEReportSummaryInfo
StructSize As Integer
applicationName As String * PE_SI_APPLICATION_NAME_LEN ' read only.
Title As String * PE_SI_TITLE_LEN
subject As String * PE_SI_SUBJECT_LEN
author As String * PE_SI_AUTHOR_LEN
keywords As String * PE_SI_KEYWORDS_LEN
comments As String * PE_SI_COMMENTS_LEN
reportTemplate As String * PE_SI_REPORT_TEMPLATE_LEN
savePreviewPicture As Integer ' BOOL PE_UNCHANGED for no change
End Type
Global Const PE_SIZEOF_REPORT_SUMMARY_INFO = 1 * PE_WORD_LEN + _
PE_SI_APPLICATION_NAME_LEN + _
PE_SI_TITLE_LEN + _
PE_SI_SUBJECT_LEN + _
PE_SI_AUTHOR_LEN + _
PE_SI_KEYWORDS_LEN + _
PE_SI_COMMENTS_LEN + _
PE_SI_REPORT_TEMPLATE_LEN + _
1 * PE_WORD_LEN
Declare Function PEGetReportSummaryInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, summaryInfo As PEReportSummaryInfo) As Integer
Declare Function PESetReportSummaryInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, summaryInfo As PEReportSummaryInfo) As Integer
' Setting section height and format
' ---------------------------------
Declare Function PEGetNSections Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
Declare Function PEGetNSectionsInArea Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal areaCode As Integer) As Integer ' return -1 if failed
Declare Function PEGetSectionCode Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal sectionN%) As Integer
' MinimumHeight is in twips - 1440 twips to the inch
'This is the replacement API Call for PEGetMinimumSectionHeight which is obsolete.
'The obsolete API will still work for older applications, but use this for all new development
Declare Function PEGetSectionHeight Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal sectionCode%, height%) As Integer
'This is the replacement API Call for PESetMinimumSectionHeight which is obsolete.
'The obsolete API will still work for older applications, but use this for all new development
Declare Function PESetSectionHeight Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal sectionCode%, ByVal height%) As Integer
Type PESectionOptions
StructSize As Integer ' initialize to PE_SIZEOF_SECTION_OPTIONS
' use 0 to turn off, 1 to turn on and PE_UNCHANGED to preserve each attribute
Visible As Integer
NewPageBefore As Integer
NewPageAfter As Integer
KeepTogether As Integer
SuppressBlankSection As Integer
ResetPageNAfter As Integer
PrintAtBottomOfPage As Integer
backgroundColor As Long ' Use PE_UNCHANGED_COLOR to preserve the
' existing color.
underlaySection As Integer
showArea As Integer
freeFormPlacement As Integer
reserveMinimumPageFooter As Integer 'BOOLEAN or PE_UNCHANGED; Sets the size of the Page Footer area // to the size of the largest Page Footer section. Used with
' PEGetAreaFormat/PESetAreaFormat; ignored when used with PEGetSectionFormat/PESetSectionFormat.
Declare Function PEGetNSubreportsInSection Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal sectionCode%) As Integer
Declare Function PEGetNthSubreportInSection Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal sectionCode%, ByVal subreportN%) As Long
'
' G R A P H I N G
'
' - graph type
Global Const PE_GT_BARCHART = 0
Global Const PE_GT_LINECHART = 1
Global Const PE_GT_AREACHART = 2
Global Const PE_GT_PIECHART = 3
Global Const PE_GT_DOUGHNUTCHART = 4
Global Const PE_GT_THREEDRISERCHART = 5
Global Const PE_GT_THREEDSURFACECHART = 6
Global Const PE_GT_SCATTERCHART = 7
Global Const PE_GT_RADARCHART = 8
Global Const PE_GT_BUBBLECHART = 9
Global Const PE_GT_STOCKCHART = 10
Global Const PE_GT_USERDEFINEDCHART = 50 ' for PEGetGraphTypeInfo only -
Global Const PE_GT_UNKNOWNTYPECHART = 100 ' do not use in PESetGraphTypeInfo.
' graph subtype
' - bar charts
Global Const PE_GST_SIDEBYSIDEBARCHART = 0
Global Const PE_GST_STACKEDBARCHART = 1
Global Const PE_GST_PERCENTBARCHART = 2
Global Const PE_GST_FAKED3DSIDEBYSIDEBARCHART = 3
Global Const PE_GST_FAKED3DSTACKEDBARCHART = 4
Global Const PE_GST_FAKED3DPERCENTBARCHART = 5
' - line charts
Global Const PE_GST_REGULARLINECHART = 10
Global Const PE_GST_STACKEDLINECHART = 11
Global Const PE_GST_PERCENTAGELINECHART = 12
Global Const PE_GST_LINECHARTWITHMARKERS = 13
Global Const PE_GST_STACKEDLINECHARTWITHMARKERS = 14
Global Const PE_GST_PERCENTAGELINECHARTWITHMARKERS = 15
' - charts
Global Const PE_GST_ABSOLUTEAREACHART = 20
Global Const PE_GST_STACKEDAREACHART = 21
Global Const PE_GST_PERCENTAREACHART = 22
Global Const PE_GST_FAKED3DABSOLUTEAREACHART = 23
Global Const PE_GST_FAKED3DSTACKEDAREACHART = 24
Global Const PE_GST_FAKED3DPERCENTAREACHART = 25
' - pie charts
Global Const PE_GST_REGULARPIECHART = 30
Global Const PE_GST_FAKED3DREGULARPIECHART = 31
Global Const PE_GST_MULTIPLEPIECHART = 32
Global Const PE_GST_MULTIPLEPROPORTIONALPIECHART = 33
' - mmm, doughnut charts
Global Const PE_GST_REGULARDOUGHNUTCHART = 40
Global Const PE_GST_MULTIPLEDOUGHNUTCHART = 41
Global Const PE_GST_MULTIPLEPROPORTIONALDOUGHNUTCHART = 42
' 3D riser charts
Global Const PE_GST_THREEDREGULARCHART = 50
Global Const PE_GST_THREEDPYRAMIDCHART = 51
Global Const PE_GST_THREEDOCTAGONCHART = 52
Global Const PE_GST_THREEDCUTCORNERSCHART = 53
' 3D surface charts
Global Const PE_GST_THREEDSURFACEREGULARCHART = 60
Global Const PE_GST_THREEDSURFACEWITHSIDESCHART = 61
Global Const PE_GST_THREEDSURFACEHONEYCOMBCHART = 62
' scatter charts
Global Const PE_GST_XYSCATTERCHART = 70
Global Const PE_GST_XYSCATTERDUALAXISCHART = 71
Global Const PE_GST_XYSCATTERWITHLABELSCHART = 72
Global Const PE_GST_XYSCATTERDUALAXISWITHLABELSCHART = 73
' radar charts
Global Const PE_GST_REGULARRADARCHART = 80
Global Const PE_GST_STACKEDRADARCHART = 81
Global Const PE_GST_RADARDUALAXISCHART = 82
' bubble charts
Global Const PE_GST_REGULARBUBBLECHART = 90
Global Const PE_GST_DUALAXISBUBBLECHART = 91
' stocked charts
Global Const PE_GST_HIGHLOWCHART = 100
Global Const PE_GST_HIGHLOWDUALAXISCHART = 101
Global Const PE_GST_HIGHLOWOPENCHART = 102
Global Const PE_GST_HIGHLOWOPENDUALAXISCHART = 103
Global Const PE_GST_HIGHLOWOPENCLOSECHART = 104
Global Const PE_GST_HIGHLOWOPENCLOSEDUALAXISCHART = 105
Global Const PE_GST_UNKNOWNSUBTYPECHART = 1000
Type PEGraphTypeInfo
StructSize As Integer
GraphType As Integer ' PE_GT_*, PE_UNCHANGED for no change
graphSubtype As Integer ' PE_GST_*, PE_UNCHANGED for no change
End Type
Global Const PE_SIZEOF_GRAPH_TYPE_INFO = (3 * PE_WORD_LEN)
Declare Function PEGetGraphTypeInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphTypeInfo As PEGraphTypeInfo) As Integer
Declare Function PESetGraphTypeInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphTypeInfo As PEGraphTypeInfo) As Integer
' graph text
Global Const PE_GTT_TITLE = 0
Global Const PE_GTT_SUBTITLE = 1
Global Const PE_GTT_FOOTNOTE = 2
Global Const PE_GTT_SERIESTITLE = 3
Global Const PE_GTT_GROUPSTITLE = 4
Global Const PE_GTT_XAXISTITLE = 5
Global Const PE_GTT_YAXISTITLE = 6
Global Const PE_GTT_ZAXISTITLE = 7
' graph text fonts
Global Const PE_GTF_TITLEFONT = 0
Global Const PE_GTF_SUBTITLEFONT = 1
Global Const PE_GTF_FOOTNOTEFONT = 2
Global Const PE_GTF_GROUPSTITLEFONT = 3
Global Const PE_GTF_DATATITLEFONT = 4
Global Const PE_GTF_LEGENDFONT = 5
Global Const PE_GTF_GROUPLABELSFONT = 6
Global Const PE_GTF_DATALABELSFONT = 7
Global Const PE_FACE_NAME_LEN = 64
' Graph text max length
Global Const PE_GRAPH_TEXT_LEN = 128
Type PEFontColorInfo
StructSize As Integer
faceName As String * PE_FACE_NAME_LEN ' empty string for no change
fontFamily As Integer ' FF_DONTCARE for no change
fontPitch As Integer ' DEFAULT_PITCH for no change
charSet As Integer ' DEFAULT_CHARSET for no change
pointSize As Integer ' 0 for no change
isItalic As Integer ' BOOL value, except use PE_UNCHANGED for no change.
isUnderlined As Integer ' BOOL value, except use PE_UNCHANGED for no change.
isStruckOut As Integer ' BOOL value, except use PE_UNCHANGED for no change.
weight As Integer ' 0 for no change
color As Long ' COLORREF - PE_UNCHANGED_COLOR for no change.
twipSize As Integer ' Font size in twips, 0 for no change.
' Use one of pointSize or twipSize. If both pointSize and twipSize
' are non-zero, twipSize will be used and pointSize will be ignored.
Declare Function PEGetGraphTextInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleType As Integer, Title As Long, titleLength As Integer) As Integer
Declare Function PESetGraphTextInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleType As Integer, ByVal Title As String) As Integer
' enable/disable graph default titles
'
' titleType - PE_GTT_*
'
Declare Function PESetGraphTextDefaultOption Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleType As Integer, ByVal useDefault As Long) As Integer
Declare Function PEGetGraphTextDefaultOption Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleType As Integer, useDefault As Long) As Integer
' graph font
' titleFontType - PE_GTF_*
Declare Function PEGetGraphFontInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleFontType As Integer, fontColourInfo As PEFontColorInfo) As Integer
Declare Function PESetGraphFontInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, ByVal titleFontType As Integer, fontColourInfo As PEFontColorInfo) As Integer
' graph options
Global Const PE_GLP_PLACEUPPERRIGHT = 0
Global Const PE_GLP_PLACEBOTTOMCENTER = 1
Global Const PE_GLP_PLACETOPCENTER = 2
Global Const PE_GLP_PLACERIGHT = 3
Global Const PE_GLP_PLACELEFT = 4
' legend layout
'
Global Const PE_GLL_PERCENTAGE = 0
Global Const PE_GLL_AMOUNT = 1
Global Const PE_GLL_CUSTOM = 2 ' for PEGetGraphOptionInfo, do not use in PESetGraphOptionInfo.
' bar sizes
Global Const PE_GBS_MINIMUMBARSIZE = 0
Global Const PE_GBS_SMALLBARSIZE = 1
Global Const PE_GBS_AVERAGEBARSIZE = 2
Global Const PE_GBS_LARGEBARSIZE = 3
Global Const PE_GBS_MAXIMUMBARSIZE = 4
' mmm, pie sizes
Global Const PE_GPS_MINIMUMPIESIZE = 64
Global Const PE_GPS_SMALLPIESIZE = 48
Global Const PE_GPS_AVERAGEPIESIZE = 32
Global Const PE_GPS_LARGEPIESIZE = 16
Global Const PE_GPS_MAXIMUMPIESIZE = 0
' detached pie slice
Global Const PE_GDPS_NODETACHMENT = 0
Global Const PE_GDPS_SMALLESTSLICE = 1
Global Const PE_GDPS_LARGESTSLICE = 2
' marker sizes
Global Const PE_GMS_SMALLMARKERS = 0
Global Const PE_GMS_MEDIUMSMALLMARKERS = 1
Global Const PE_GMS_MEDIUMMARKERS = 2
Global Const PE_GMS_MEDIUMLARGEMARKERS = 3
Global Const PE_GMS_LARGEMARKERS = 4
' marker shapes
Global Const PE_GMSP_RECTANGLESHAPE = 1
Global Const PE_GMSP_CIRCLESHAPE = 4
Global Const PE_GMSP_DIAMONDSHAPE = 5
Global Const PE_GMSP_TRIANGLESHAPE = 8
' chart color
Global Const PE_GCR_COLORCHART = 0
Global Const PE_GCR_BLACKANDWHITECHART = 1
' chart data points
Global Const PE_GDP_NONE = 0
Global Const PE_GDP_SHOWLABEL = 1
Global Const PE_GDP_SHOWVALUE = 2
' number formats
Global Const PE_GNF_NODECIMAL = 0
Global Const PE_GNF_ONEDECIMAL = 1
Global Const PE_GNF_TWODECIMAL = 2
Global Const PE_GNF_CURRENCYNODECIMAL = 3
Global Const PE_GNF_CURRENCYTWODECIMAL = 4
Global Const PE_GNF_PERCENTNODECIMAL = 5
Global Const PE_GNF_PERCENTONEDECIMAL = 6
Global Const PE_GNF_PERCENTTWODECIMAL = 7
' viewing angles
Global Const PE_GVA_STANDARDVIEW = 1
Global Const PE_GVA_TALLVIEW = 2
Global Const PE_GVA_TOPVIEW = 3
Global Const PE_GVA_DISTORTEDVIEW = 4
Global Const PE_GVA_SHORTVIEW = 5
Global Const PE_GVA_GROUPEYEVIEW = 6
Global Const PE_GVA_GROUPEMPHASISVIEW = 7
Global Const PE_GVA_FEWSERIESVIEW = 8
Global Const PE_GVA_FEWGROUPSVIEW = 9
Global Const PE_GVA_DISTORTEDSTDVIEW = 10
Global Const PE_GVA_THICKGROUPSVIEW = 11
Global Const PE_GVA_SHORTERVIEW = 12
Global Const PE_GVA_THICKSERIESVIEW = 13
Global Const PE_GVA_THICKSTDVIEW = 14
Global Const PE_GVA_BIRDSEYEVIEW = 15
Global Const PE_GVA_MAXVIEW = 16
Type PEGraphOptionInfo
StructSize As Integer
graphColour As Integer ' PE_GCR_*, PE_UNCHANGED for no change
ShowLegend As Integer ' BOOL, PE_UNCHANGED for no change
legendPosition As Integer ' PE_GLP_*, if showLegend == 0, means no legend
' pie charts and doughut charts
pieSize As Integer ' PE_GPS_*, PE_UNCHANGED for no change
detachedPieSlice As Integer ' PE_GDPS_* or PE_UNCHANGED for no change
' bar chart
barSize As Integer ' PE_GBS_*, PE_UNCHANGED for no change
VerticalBars As Integer ' BOOL, PE_UNCHANGED for no change
' markers (used for line and bar charts)
markerSize As Integer ' PE_GMS_*, PE_UNCHANGED for no change
markerShape As Integer ' PE_GMSP_*, PE_UNCHANGED for no change
' data points
dataPoints As Integer ' PE_GDP_*, PE_UNCHANGED for no change
dataValueNumberFormat As Integer ' PE_GNF_*, PE_UNCHANGED for no change
' 3d
viewingAngle As Integer ' PE_GVA_*, PE_UNCHANGED for no change
legendLayout As Integer ' PE_GLL_*
End Type
Global Const PE_SIZEOF_GRAPH_OPTION_INFO = (14 * PE_WORD_LEN)
Declare Function PEGetGraphOptionInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphOptionInfo As PEGraphOptionInfo) As Integer
Declare Function PESetGraphOptionInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphOptionInfo As PEGraphOptionInfo) As Integer
' graph axes
Global Const PE_GGT_NOGRIDLINES = 0
Global Const PE_GGT_MINORGRIDLINES = 1
Global Const PE_GGT_MAJORGRIDLINES = 2
Global Const PE_GGT_MAJORANDMINORGRIDLINES = 3
' axis division method
Global Const PE_ADM_AUTOMATIC = 0
Global Const PE_ADM_MANUAL = 1
Type PEGraphAxisInfo
StructSize As Integer
groupAxisGridLine As Integer ' PE_GGT_*, PE_UNCHANGED for no change
dataAxisYGridLine As Integer ' PE_GGT_*, PE_UNCHANGED for no change
dataAxisY2GridLine As Integer ' PE_GGT_*, PE_UNCHANGED for no change
seriesAxisGridline As Integer ' PE_GGT_*, PE_UNCHANGED for no change
dataAxisYMinValue As Double
dataAxisYMaxValue As Double
dataAxisY2MinValue As Double
dataAxisY2MaxValue As Double
seriesAxisMinValue As Double
seriesAxisMaxValue As Double
dataAxisYNumberFormat As Integer ' PE_GNF_*, PE_UNCHANGED for no change
dataAxisY2NumberFormat As Integer ' PE_GNF_*, PE_UNCHANGED for no change
seriesAxisNumberFormat As Integer ' PE_GNF_*, PE_UNCHANGED for no change
dataAxisYAutoRange As Integer ' BOOL, PE_UNCHANGED for no change
dataAxisY2AutoRange As Integer ' BOOL, PE_UNCHANGED for no change
seriesAxisAutoRange As Integer ' BOOL, PE_UNCHANGED for no change
dataAxisYAutomaticDivision As Integer ' PE_ADM_* or PE_UNCHANGED for no change
dataAxisY2AutomaticDivision As Integer ' PE_ADM_* or PE_UNCHANGED for no change
seriesAxisAutomaticDivision As Integer ' PE_ADM_* or PE_UNCHANGED for no change
dataAxisYManualDivision As Long ' if dataAxisYAutomaticDivision is PE_ADM_AUTOMATIC, this field is ignored
dataAxisY2ManualDivision As Long ' if dataAxisY2AutomaticDivision is PE_ADM_AUTOMATIC, this field is ignored
seriesAxisManualDivision As Long ' if seriesAxisAutomaticDivision is PE_ADM_AUTOMATIC, this field is ignored
dataAxisYAutoScale As Integer ' BOOL, PE_UNCHANGED for no change
dataAxisY2AutoScale As Integer ' BOOL, PE_UNCHANGED for no change
seriesAxisAutoScale As Integer ' BOOL, PE_UNCHANGED for no change
Declare Function PEGetGraphAxisInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphAxisInfo As PEGraphAxisInfo) As Integer
Declare Function PESetGraphAxisInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, ByVal sectionN As Integer, ByVal GraphN As Integer, graphAxisInfo As PEGraphAxisInfo) As Integer
' Subreport(s)
Declare Function PEOpenSubreport Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal parentJob%, ByVal subreportName$) As Integer
Declare Function PECloseSubreport Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer
' Formula Syntax
Global Const PE_FS_SIZE = 2
' Syntax Types
Global Const PE_FST_CRYSTAL = 0
Global Const PE_FST_BASIC = 1
Type PEFormulaSyntax
StructSize As Integer ' Set to PE_SIZEOF_FORMULA_SYNTAX
FormulaSyntax(0 To 1) As Integer ' PE_FS_* or PE_UNCHANGED.
End Type
Global Const PE_SIZEOF_FORMULA_SYNTAX = (3 * PE_WORD_LEN)
' PESetFormulaSyntax
' Use this API to set the syntax to use in the next (and all successive)
' formula API call(s).
' Set one of PE_FST_* into formulaSyntax[0];
' formulaSyntax[1] is reserved for internal use.
' ***Default Behaviour: If any Formula API is called before calling
' PESetFormulaSyntax then PE_FST_CRYSTAL is assumed.
Declare Function PESetFormulaSyntax Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, FormulaSyntax As PEFormulaSyntax) As Integer
' PEGetFormulaSyntax
' Indicates the syntax used by the formula addressed in the last formula API call.
' The syntax type is returned in formulaSyntax[0];
' formulaSyntax[1] is reserved for internal use.
' ***Default Behaviour: If this API is called before any Formula API is called
' then the values returned will be PE_UNCHANGED.
Declare Function PEGetFormulaSyntax Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob As Integer, FormulaSyntax As PEFormulaSyntax) As Integer
StructSize As Integer ' initialize to PE_SIZEOF_VERSION_INFO
major As Integer
minor As Integer
letter As String
End Type
Global Const PE_SIZEOF_VERSION_INFO = (4 * PE_WORD_LEN)
Declare Function PEGetReportVersion Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, pVersionInfo As PEVersionInfo) As Integer
' Report Alerting
Type PEReportAlertInfo
StructSize As Integer ' initialized to be PE_SIZEOF_REPORT_ALERT_INFO
nameLength As Integer
name As Long ' NOTE: must release HANDLEs even not using them
isEnabled As Integer ' TRUE if alert is enabled, else FALSE
alertConditionLength As Integer
alertConditionFormula As Long
nTriggeredInstances As Long ' the number of times the alert was triggered
Declare Function PEGetNReportAlerts Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%) As Integer 'return -1 if failed.
Declare Function PEGetNthReportAlert Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, reportAlertInfo As PEReportAlertInfo) As Integer
Declare Function PEGetNthAlertInstanceInfo Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, ByVal instanceN As Long, alertInstanceInfo As PEAlertInstanceInfo) As Integer
Declare Function PESetNthAlertConditionFormula Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, formula As String) As Integer
Declare Function PESetNthAlertMessageFormula Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, formula As String) As Integer
Declare Function PESetNthAlertDefaultMessage Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, text As String) As Integer
Declare Function PEEnableNthAlert Lib "\Program Files\Common Files\Crystal Decisions\2.0\bin\crpe32.dll" (ByVal printJob%, ByVal alertN%, enabled As Integer) As Integer
